Public Function getUptime() As String
    Dim strResult As String = String.Empty
    strResult += Math.Round(Environment.TickCount / 86400000) & " days, "
    strResult += Math.Round(Environment.TickCount / 3600000 Mod 24) & " hours, "
    strResult += Math.Round(Environment.TickCount / 120000 Mod 60) & " minutes, "
    strResult += Math.Round(Environment.TickCount / 1000 Mod 60) & " seconds."
    Return strResult
End Function

' Example usage of this function.
MessageBox.Show(getUptime)